home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00026_HelpMIAW.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  3.4 KB  |  129 lines
  1. --
  2. -- HelpMIAW
  3. --
  4.  
  5. property ancestor
  6.  
  7. property helpWindow
  8. property thePath
  9.  
  10.  
  11. on new me
  12.   -- set constants:
  13.   set thePath = the pathName
  14.   
  15.   -- initialize the ancestor:
  16.   set ancestor = new (script "Print")
  17.   
  18.   return me
  19. end
  20.  
  21.  
  22. on destruct me
  23.   if objectP (ancestor) then destruct (ancestor)
  24.   set ancestor = 0
  25. end
  26.  
  27.  
  28. on initHelpWin me, thePath, theFile
  29.   -- this will need the path to the help window file
  30.   -- for now
  31.   sound stop 1
  32.   --sound stop 2
  33.   unloadCast (me)
  34.   
  35.   if not thePath then set thePath = the pathname
  36.   if not stringP (theFile) then return
  37.   
  38.   if not thePath then set thePath = the pathname
  39.   set helpWindow = window theFile
  40.   set the fileName of helpWindow = thePath & theFile
  41.   -- set the modal of helpWindow = 1
  42.   set the windowType of helpWindow = 3
  43.   set the modal of helpWindow = 1
  44.   set the rect of helpWindow = centerWindowOnStage (me, the rect of helpWindow)
  45.   put "I have init'ed the help window..."
  46.   tell the stage to pause
  47.   open helpWindow
  48. end
  49.  
  50.  
  51. on closeHelpWin me
  52.   if the windowList <> [] then
  53.     tell helpWindow to pause
  54.     
  55.     set the rect of helpWindow = throwWindowWayOffStage (me, the rect of helpWindow)
  56.     tell the stage 
  57.       updateStage
  58.     end tell
  59.     
  60.     close helpWindow
  61.     forget helpWindow
  62.     updateStage
  63.     --puppetSound 0
  64.     unloadCast (me)
  65.     tell the stage
  66.       go to the frame
  67.     end tell
  68.     -- tell the stage to go to the Frame
  69.     put "forgot helpWindow..."
  70.   else
  71.     alert "The help window is not initialized..."
  72.   end if
  73. end
  74.  
  75.  
  76. on throwWindowWayOffStage me, theRect
  77.   set newRect = rect(0,0,0,0)
  78.   
  79.   -- we are going to start with the MIAWS way off the stage
  80.   set newRect = rect(0,0,0,0)
  81.   
  82.   set stageRect = rect(the stageLeft, the stageTop, the stageRight, the stageBottom)
  83.   set stageWidth = the right of stageRect - the left of stageRect
  84.   set stageHeight = the bottom of stageRect - the top of stageRect
  85.   
  86.   -- take the passed rect, and figure out the offsets
  87.   set theWidth = the right of theRect - the left of theRect
  88.   set theHeight = the bottom of theRect - the top of theRect
  89.   
  90.   set offsetH = ((stageWidth - theWidth)/2)
  91.   set offsetV = ((stageHeight - theHeight)/2)
  92.   
  93.   set the left of newRect = the left of stageRect + offsetH
  94.   set the top of newRect = the top of stageRect + offsetV
  95.   set the right of newRect = the left of newRect + theWidth
  96.   set the bottom of newRect = the top of newRect + theHeight
  97.   -- the window is now centered
  98.   
  99.   -- now we will push the window all the way up off the top by about 10000 pixels
  100.   -- just to be safe
  101.   set the top of newRect = the top of newRect - 10000
  102.   set the bottom of newRect = the bottom of newRect -10000
  103.   
  104.   return newRect
  105. end
  106.  
  107.  
  108. on centerWindowOnStage me, theRect
  109.   set newRect = rect(0,0,0,0)
  110.   
  111.   set stageRect = rect(the stageLeft, the stageTop, the stageRight, the stageBottom)
  112.   set stageWidth = the right of stageRect - the left of stageRect
  113.   set stageHeight = the bottom of stageRect - the top of stageRect
  114.   
  115.   -- take the passed rect, and figure out the offsets
  116.   set theWidth = the right of theRect - the left of theRect
  117.   set theHeight = the bottom of theRect - the top of theRect
  118.   
  119.   set offsetH = ((stageWidth - theWidth)/2)
  120.   set offsetV = ((stageHeight - theHeight)/2)
  121.   
  122.   set the left of newRect = the left of stageRect + offsetH
  123.   set the top of newRect = the top of stageRect + offsetV
  124.   set the right of newRect = the left of newRect + theWidth
  125.   set the bottom of newRect = the top of newRect + theHeight
  126.   
  127.   return newRect
  128. end
  129.